home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
serien
/
purity
/
nr.22
/
iff2src
/
wbpic.68000.iff.p
< prev
next >
Wrap
Text File
|
1995-04-23
|
982b
|
39 lines
{ Und so sieht das ganze dann als Pascalinclude aus: }
{ Iff2Src conversion: WBpic.68000.iff }
Const
data : Array[1..20480]of Short =
(
{ * Plane 0 * }
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
.......
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
);
cmap : Array[1..4] of Short = { Oder auch 0..3, wies in Pascal üblich ist }
(
$0AAA,$0000,$0FFF,$0669
);
im : Image =
(
0,0,
640,256,
2,
Adr(data[1]), { Muss bei einigen Compilern nachtraeglich im Programm
eingetragen werden: im.InageData := Adr(data[1]); }
$ff,$0,
NIL
};